Private Sub btnԷ_Click()

    Dim Էġ As Range
    
    If Է¿Ϸ(Me) = True Then

        Set Էġ = Cells(Rows.Count, "B").End(xlUp).Offset(1)
        
        With Էġ
        
            .Offset(0, 0).Value = Int(txt.Value)
            .Offset(0, 1).Value = txt̸.Value
            .Offset(0, 2).Value = cmb.Value
            .Offset(0, 3).Value = txtֹε.Value
            .Offset(0, 4).Value = DateValue(txt.Value)
            .Offset(0, 5).Value = Int(txt.Value)
            .Offset(0, 6).Value = IIf(opt.Value, "", "")
            
            .Offset(-1).Resize(1, 7).Copy
            .Resize(1, 7).PasteSpecial xlPasteFormats
            .Select
            
            Application.CutCopyMode = False
                            
        End With
           
    End If
    
End Sub